﻿Imports QLPhuTungOto.Data
Public Class LoaiPhuTungBUS
    Public Function LayDSLoaiPhuTung() As List(Of LoaiPhuTung)
        Dim db As New QLPhuTungOtoDataContext
        Return db.LoaiPhuTung.LayDSLoaiPhuTung()
    End Function
    Public Sub CapNhatLoaiPhuTung(ByVal lpt As LoaiPhuTung)
        Dim db As New QLPhuTungOtoDataContext
        db.LoaiPhuTung.CapNhatLoaiPhuTung(lpt)
    End Sub
    Public Sub ThemLoaiPhuTung(ByVal lpt As LoaiPhuTung)
        Dim db As New QLPhuTungOtoDataContext
        db.LoaiPhuTung.ThemLoaiPhuTung(lpt)
    End Sub
    Public Sub Xoa(ByVal malpt As Integer)
        Dim db As New QLPhuTungOtoDataContext
        db.XoaLoaiPhuTung(malpt)
    End Sub
End Class
